home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / UTILITY / FSULTRA1.ARJ / ULTRA_FR.ASM < prev    next >
Assembly Source File  |  1992-06-18  |  3KB  |  119 lines
  1. comment ! 
  2. FSU - ULTRA    The greatest random number generator that ever was
  3.         or ever will be.  Way beyond Super-Duper.
  4.         (Just kidding, but we think its a good one.)
  5.  
  6. Authors:    Arif Zaman (arif@stat.fsu.edu) and
  7.         George Marsaglia (geo@stat.fsu.edu).
  8.  
  9. Date:        27 May 1992
  10.  
  11. Version:    1.05
  12.  
  13. Copyright:    To obtain permission to incorporate this program into
  14.         any commercial product, please contact the authors at
  15.         the e-mail address given above or at
  16.  
  17.         Department of Statistics and
  18.         Supercomputer Computations Research Institute
  19.         Florida State University
  20.         Tallahassee, FL 32306.
  21.  
  22. See Also:    README        for a brief description
  23.         ULTRA.DOC    for a detailed description
  24.  
  25. -----------------------------------------------------------------------
  26. ! 
  27. ;
  28. ; File: ULTRA_FR.ASM (IBM Fortran/2 calling conventions)
  29. ;
  30.    DOSSEG
  31.    .MODEL HUGE,FORTRAN
  32.  
  33. ;===== B: GLOBAL FUNCTIONS, SUBROUTINES and VARIABLES =================
  34. ;
  35.     public  i31bit, i15bit, i7bit,  i1bit,  uni,    duni
  36.     public  i32bit, i16bit, i8bit,  rinit,  vni,    dvni
  37.     public    swbstate, swbsize
  38.  
  39. ;===== D. MACRO DEFINITIONS ===========================================
  40. ;
  41. ; RinitProcStart should take two 32-bit arguments conx and shrx
  42. ;   and place them in the data segment in congx and shrgx.
  43. ;   es and ds should both point to the data segment.
  44. ;   conx must be odd (so we or with 1 just to make sure).
  45. ; FillProc
  46. ;   DS is already the data segment. ES should also be made the same.
  47.  
  48. EnterProcedure   macro
  49.     mov  dx,DATA
  50.     push ds
  51.     mov  ds,dx
  52. endm
  53.  
  54. ExitProcedure    macro
  55.     pop ds
  56.     ret
  57. endm
  58.  
  59. Enter2arg   macro          ; fortran has call by reference.
  60.     arg conx:dword, shrx:dword
  61.     EnterProcedure
  62.     mov  dx,ds
  63.     mov  es,dx
  64.     mov  di,offset congx
  65.     lds  si,ConX            ; Store the parameters in
  66.     lodsw                   ; the data segment in
  67.     shl  ax,1
  68.     stosw                   ; conglo:conghi and
  69.     lodsw                   ; shrglo:shrghi.
  70.     rcl  ax,1
  71.     stosw
  72.     mov  di,offset shrgx
  73.     lds  si,ShrX
  74.     lodsw
  75.     stosw
  76.     lodsw
  77.     stosw
  78.     mov  ds,dx              ; setup the segment regs.
  79.     or   byte ptr congx,1
  80. endm
  81.  
  82. Exit2arg    macro
  83.   ExitProcedure
  84. endm
  85.  
  86. EnterFill    macro
  87.     mov    ax,ds
  88.     mov    es,ax
  89. endm
  90.  
  91. ExitFill    macro
  92.     ret
  93. endm
  94.  
  95. DwordFn macro
  96. endm
  97.  
  98. WordFn  macro
  99. endm
  100.  
  101. ByteFn  macro
  102.     cbw                 ; fortran doesn't have bytes so return integer*2
  103. endm
  104.  
  105. RealFn  macro
  106. endm
  107.  
  108. DoubleFn macro
  109. endm
  110.  
  111. DATA SEGMENT WORD PUBLIC 'F@DATA'
  112.   INCLUDE ULTRADAT.INC
  113. DATA ENDS
  114.  
  115. F@ICODE SEGMENT WORD PUBLIC 'CODE'
  116. ASSUME CS:F@ICODE, DS:DATA
  117.   INCLUDE ULTRACOD.INC
  118. F@ICODE ENDS
  119. END